home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 146 / 146.d81 / b.presto jukebox (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  551b  |  22 lines
  1. 3 poke53280,0:poke53281,0:poke53272,20
  2. 4 poke56,144:poke55,0:clr:poke828,0
  3. 5 dv=peek(186):ifdv<8thendv=8
  4. 6 print"[147]p r e s t o   j u k e[144]
  5. 7 [150][165]h(x)[178][181](x[173]256)
  6. 8 [150][165]l(x)[178]x[171][165]h(x)[172]256
  7. 9 q$[178][199](34)
  8. 10 [153]"l(NULL)"q$"pjuke"q$","dv
  9. 20 [153]"run":[151]198,2:[151]631,13:[151]632,13
  10. 30 [135]a$,a:[139]a[178]0[167]70
  11. 40 [158]57812a$,dv,0:[151]780,0:[151]781,[165]l(a):[151]782,[165]h(a):[158]65493:[137]30
  12. 70 q[178]32:[151]q[172]256,0:[151]44,q:[151]43,1
  13. 80 [128]
  14. 100 [131]"toolbox 9000",36864
  15. 101 [131]"hand",832
  16. 102 [131]"pplay.ml",4096
  17. 103 [131]"pjuke.tbs",57344
  18. 1000 [131]"",0
  19. 59999 [128]
  20. 60000 dv[178][194](186):[139]dv[179]8[167]dv[178]8
  21. 60001 [159]15,dv,15,"s0:b.pjuke":[160]15:[148]"0:b.pjuke",dv
  22.